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ccm 
lem Ea | 


**F I LE®*1D®**LOCKDATA 
LL 000000 cccccccc KK KK DDDDDDDD AAAAAA TTTTTTTTITT AAAAAA 
LL 000000 Ccccccccc kK KK DDDDDDDD AAAAAA TTTTITTTITT AAAAAA 
LL 00 oo cc KK KK DD DD AA AA TT Aa AA 
LL 00 oo CC KK KK DD DD AA AB TT AA aa 
LL 00 oo CC KK KK DD DD AA AA TT AS Aa 
LL 00 oo cc KK DD DD AA AA TT aA aa 
LL 00 oo cc KKKKKK DD DD AA AA TT AA 4A 
LL 00 cc KKKKKK DD DD AA AA TT AA AA 
LL 00 oo cc KK KK DD DD AAAAAAAAAA TT AAAAAAAAAA 
LL 00 oo cc KK KK DD DD AAAAAAAAAA TT AAAAAAAAAA 
LL 00 oo CC KK KK DD DD AA AA TT Aa Ba cece 
LL 00 oo CC KK KK 0D DD AA Aa TT AA AA cece 
LLLLLLLLLL 000000 CCCCCCCC KK KK DDDDDDDD AA AA TT AA AA cece 
LLLLLLLLLL 000000 ccccccce KK KK DDDDDDDD AA AA TT AA AA cece 
LL III] SSSSSSSS 
LL I1I111 SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL III] SSSSSSSS 
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BOOSUNLOCK_GEN = Unlock SYSGEN database 
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NDF ,STASW 
LE LOCKDATA = Routines to lock/unlock SYSGEN database 


LE STALOCK = Dummy routines for STASYSGEN 
; -IDENT ‘v04=-000' 


MARBRABAAAAAAAASLAAAAASALAAALALALALASALALALELALALAAAA RARE RAR ARAL ALAA RRR RRA LAS SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 

DANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Pisneechaiee” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeppokaT ioe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Facility: System generation and initialization 


Abstract: LOCKDATA provides subroutines which allow synchronization of 
access to the SYSGEN device Catabase. 


Environment: 
Author: Maryann Hinden, Creation date: 08-June-1983 
Modification History: 


v03-002 WHM0001 _ Bill Matthews 29-F eb-1984 
Enable queueing of the SYSGEN database lock request. 
v03-001 MSHO001 Maryann Hinden 13-Jul-1983 


Use general addressing mode for EXESGL_SYSID_LOCK. 


: Include files: 


SLCKDEF ; Define lock manager symbols 
SSSDEF : Define system status values 
SSYSGMSGDEF ; Sysgen messages 


COOCCSOSCOSOSOSOSSOSSSSSSSOSOSSOSSSOOSOSOSSOSSOSOSOSOSOOOSOSOSOOSOSOOOSOOOOOoSoo 
SOOCCCOCOOSCOSCOSOOSOSOSSOSOOOSSOSOOSOSSOSOSOSOSOOSOOOSOSOOOOOOSOOOOOOOOOCOSoOo 
SOCOSOSCOOCOOCOOOOOSSSSOSCOSSSOOSOSSOSSSOSOSOSOSOSOOOSCOO OOOO OOOOOOOOOOOOOoO 


Ssssssssssssssss8$s8sss3s3s3ssssssssssssssssssssssssssssssssss 


NAME WN (0 ODNAUE WN 0 OONAUE WIN (OOD NAUE WN O OD NAME WW OOONOUE Wh 
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$008 

000 

000 

0000000 000 

0000001 000 

0000 

0000 

00000000 

0000 

0000 

0000 

44 

SE 45 47 53 59 53 00000008'010E0000" 0000 

45 53 41 42 41 54 41 44 SF 24 OQODE 

0018 

0018 

00000000 0018 

001C 

00000000 001C 

0020 

00000000 
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58 ; 
23 : Equated Symbols: 
61° LOCK_EFN = 2 
6¢ LOCK- “FLAGS = LCKSM_SYNCSTS!- 
o7 LCKSM_ SYSTEM 
Fi -PSECT PAGED_DATA NOEXE 
oF : Data for SYSGEN database lock 
69 boosce. RESDSC:: 
0 <ASCID /SYSGENS_DATABASE/ 
71 
ie BOOSLOCK, STATUS: ; 
74 BOOSLOCK_ID:: 
ie eLONG 0 
77 -PSECT PAGED_CODE NOWRT 


fee | ok Macro v04-00 Page 2 


:04:4 


BOOTS.SRCJLOCKDATA.MAR; 1 (1) 


Event flag number used for lock request 
Flags specified for lock request 


Descriptor for resource name 


LOCK_STATUS and LOCK_ID form 
the Tock status block for the 
lock request 


a ny 
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- Routines to lock/unlock SYSGEN databas 15-SEP-1984 23:55:4 AX/VMS Macro V04-00 Page 
BOOSLOCK_GEN = Lock SYSGEN database G-SEP=1984 33:30:48 tBoors. sRe LOCKDATA.MAR; 1 : 
44 1 -SBITL BOOSLOCK_GEN = Lock SYSGEN database 
0000 g ; Functional geserlet ton 
0000 4 ; Lock the SYSGEN database fer acouter metre in order to 
0000 2 3 syocoren tse 1/0 database building. Used by LOAD, RELOAD, 
Bop § ; AUTOCONFIGURE, CONNECT. 
0000 Bs ; This routine attempts to acquire an exclusive mode system lock on 
0000 89 ; the SYSGENS_DATABASE resource in executive mode. So that this resource 
0000 90 : is only specific to the local system, rather than a cluster, the $ENQ 
0000 71 Ss requess specifies a parent (resources which identifies the system on 
44 38 ; which the request is being made. 
0000 94 ; The SENQW entry point is used, so that if the resource is not 
0000 95 ; available immediately, the process will wait, with the assumption being 
0000 96 ; that it will get the resource soon. An event flag number is specified 
44 M4 3 to avoid possible interference with CONFIGURE. 
0000 99 ; An alternate version of this routine (STALOCK) is provided in 
0000 100 ; which the calls to the entry pernes simply return a success status. 
0000 101 ; This is provided for use by STASYSGEN which runs standalone, and 
0000 ine therefore no Locking is necessary. 
0090 103 ; : 
0000 104 ; sie sequence 
0000 105 ; JSB/BSBx BOOSLOCK_GEN 
0000 106 ; 
0000 107; Inputs 
0000 108 ; NONE 
0000 109 ; 
000 110 ; Outputs 
000 111; RO - If LBS, locked database 
0000 112 ; LBC, then no current access to database (SYSG$_NOLOCK) 
0000 113 ;-- 
0000 114 
0090 115 BOOSLOCK_GEN:: 
0000 116 
000 117 IF NDF, STASW 
0000 118 SCMEXEC_S LOCK : Change mode to take out Lock 
05 OOOF 119 RSB ; Return 
0010 120 
0006 0010 121 LOCK: .WORD “M<R2> ; Null entry mask 
DO 0012 122 MOVL G*EXESGL_SYSID LOCK ,RO : Get 1D of parent Lock 
0019 123 SENQW_S efn = #LOCR_EFN,- 
0019 124 Lkmode = #LCKSK_EXMODE,- 
0019 125 ksb = BOOSLOTK _STATUS,- 
0019 126 flags = #LOCK_FLAGS,- 
0019 127 resnam = BOO$GB_RESDSC.- 
0019 128 paris = RO 
ry OO3A \¢3 BLBC 0,10$ ; If LBC. error 
C 003 130 MOVZWL BOOSLOCK_STATUS,RO ; Get final status 
E9 0044 13! BLBC RO,10$ ; Success? 
04 0047 1 ; RET - 7g. 
DO 0048 135 10%: MOVL #SYSG$_NOLOCK,RO ; Indicate error 
04 134 RET 
133 
136 
137 
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LOCKDATA = Routines to lock/unloc 755:4 AX/VMS Macro V04-00 Page 5 
¥0e=000 BOOSLOCK. GEN - Lock SYSGEN database 2re Epa 984 33ibaic8 teoors. src LOCKDATA.MAR; 1 . (2) 
+ ame #SS$_NORMAL, RO 3 Force success 


-ENDC 
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BOOSUNLOCK_GEN = 
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Unlock SYSGEN database 4-SEP-1 04:4 BOOTS. SRCJLOCKDATA.MAR; 1 
~SBTTL BOOSUNLOCK_GEN - Unlock SYSGEN database 


Functional description 
Dequeue the lock requested by BOOSLOCK_GEN. 


ee. 


+ 
+ 


sequence 
/BSBx  BOOSUNLOCK_GEN 


Input sae 
Lock id in Lock status block (implicit). 


Output 
RO - If LBS, successful completion 
LBC, error on dequeue (probably serious) - status SYSG$_DEQERR. 


Sete Sete Ge Se Se Se Se Ge Se Ge se Se 


BOOSUNLOCK_GEN:: 
o Wf NDF ,STASW 
SCMEXEC_S UNLOCK ; Change mode to access lock 
05 RSB ; Return 
0000 UNLOCK: .WORD O- : Null entry mask 
$DEQ_S lLkid = BOOSLOCK_ID ; Dequeue lock 
E8 BLBS RO,10$ ; If LBS, all okay 
dO MOVL #SYSG$_DEQERR,RO : Indicate error 
04 10$: RET 
7E oIFF 
O07E 
O07E MOVZWL #SS$_NORMAL ,RO ; Force success 
Q07E RSB 
007E 
O07E -ENDC 
007E - END 
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LOCKDATA 
Symbol table 
$$T1 = $008 1 
BOOSGB_RESDSC 009 2090 RG 8 
BOOSLOCK_GEN 0000 RG 
BOOSLOCK_ at 3 ES RG 0 
BOOSLOCK STATUS 0000018 RG 0 
BOOSUNLOTK_GEN 00000050 RG 0 
EXESGL SYSTD_LOCK teeeeere =X 13 
LCKSK_EXMODE = 00000005 
LCKSM_SYNCSTS = 00000008 
~LCKSM_SYSTEM = 44 44 
LOCK 00000010 PR 03 
LOCK_EFN = 4444 14 
LOCK" FLAGS = 9000001 
| SYSSCMEKEC teennene GX 03 
| SYSSDEQ xeekenee GX 03 
YSSENQW eeeneree CX 03 
| SYSGS_DEQERR = 007€8122 
_$YSG$"NOLOCK = 007C812A 
| g 00000060 R 03 
| g$eooerween.{ cor eecece-a + 
H Psect synopsis ! 
| PSECT name Allocation PSECT No. Attributes 
i. 26-2 00060000 0.) 00 ¢ 0.) NOPIC  USR 
| SABSS 0000000 ( 0.) 14 ‘ NOP IC USR 
| PAGED_DATA 00000020 (« 32.) 02 ¢ $3 NOPIC USR 
| PAGED_CODE Q000007E ( 126.) O03 ¢ -) NOPIC USR 
OR eee eesececee + 
| : Performance indicators : 
| Phase Page faults CPU Time Elapsed Time 
| Initialization | 36 00:00:00.08 00:00:00.37 
a4 ssh HES as 9805-0 
ages tabte wore ch B8:88:80-96 88:00:81 18 
ass :00:00. 7:00:01. 
“Symbol table output 4  00:00:00:04 00:00:00.04 
| Psect synopsis output 1 Opt BO: 8-95 es Se 
| Cross-reference output 0 0:00:00.0 0:60:00.00 
| Assembler run totals 454 00:00:07.79 00:00:18.45 


| The working set Limit was 1200 pages. 
| 26796 bytes (5 


33:00:48 


CON ABS LCL NOS 
CON ABS LCL NOS 
CON REL LCL NOS 
CON REL LCL NOS 


pages) of virtual memory were used to buffer the intermediate code. 


| There were 30 pages of symbol table space allocated to hold 514 non-local and 2 local symbols. 


| 179 source Lines were read in Pass 1, producing 


object records in Pass 


17 pages of virtual memory were used to define 16 macros. 


AX/VMS Macro V04-00 
BOOTS.SRCJLOCKDATA.MAR; 1 


HR NOEXE NORD 
HR EXE RD 
HR NOEYE RD 
HR EXE RD 


Page 


NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
WRT NOVEC BYTE 

NOWRT NOVEC BYTE 
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VAk-11 Macro Run Statistics 


¢ wwe mereeeeoeeee wee oes coeeen } 


! Macro Liorary statistics ! 


Gwwe -wmemmeeees we ees er ewame~ ow + 


Macros det ined 


Macro Library name 


“$52 280UAc8: £8 en ae JJBOOTS.MLB;1 0 

$255% LIB. MLB; 1 1 
$255SDUA28: SySi IBISTARLET ALB: 2 i 

“rorace (all Libraries) 1 


649 GETS were required to define 13 macros. 


There were no errors, warnings or information messages. 


4-SEP=-19 


84 23:5 
84 23:0 


5: 
4: 


42 
48 
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/MACRO/(!S=LIS$:LOCKDATA/0BJ=OBJ$:LOCKDATA MSRC$:LOCKDATA/UPDATE=(ENH$ :LOCKDATA) +EXECML$/LI8+.1B$:B00TS.MLB/LIB 
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